home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / SHOW_MEM.M < prev    next >
Encoding:
Text File  |  1989-03-10  |  1.0 KB  |  20 lines
  1. (*$c-*)
  2. module show_mem; (*$E mos *)
  3.  
  4. from storage import memavail, allavail;
  5. from strconv import cardtostr;
  6. from terminal import writepg, writeString, writeln, read;
  7.  
  8. var ch: char;
  9.  
  10. begin
  11.   writepg;
  12.   WriteString ('All    : '); WriteString (cardtostr (allavail(),0));
  13.   writeln;
  14.   WriteString ('Largest: '); WriteString (cardtostr (memavail(),0));
  15.   writeln;
  16.   read (ch)
  17. end show_mem.
  19. (* $FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$00000108$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4$FFEFB5B4Ç$00000052T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$00000066$000000FD$00000106$00000158$00000052$0000010B$00000167$00000142$00000127$FFEFB5B4$00000184$00000127$00000184$000000BE$000000B6$00000025ÿÇÇ*)
  20.